//TBWM01AW JOB (0306,TEST,1,20,0),'MCNULTY.B',
//         CLASS=B,NOTIFY=TBWM01A,LINES=99,
//         MSGCLASS=Q,REGION=1300K
//* ------------------------------------------------------------- *
//*
//ULJX06   EXEC  PGM=EZTPA00,REGION=2M
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSSNAP  DD  SYSOUT=*
//DSLJO01  DD  SYSOUT=*
//DSLJO02  DD  SYSOUT=*
//DSLJO03  DD  SYSOUT=*
//DSLJO04  DD  SYSOUT=*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//SORTWK07 DD  UNIT=SYSDA,SPACE=(CYL,(150,20))
//EZTR001  DD  UNIT=SYSDA,SPACE=(CYL,10)
//EZTVFM   DD  UNIT=SYSDA,SPACE=(CYL,10)
//*******
//FILEN    DD  DSN=TBWM01A.PQLJR01.WHSEINFO,                            00112
//             DISP=SHR
//FILEO    DD  DSN=SYSTCFI.SRLJ.FONTANA.WHSEMDSE,                       00112
//             DISP=SHR
//SYSIN    DD  *
FILE FILEN
NSOURCE        1    3  A
NITEM          9    7  A
NDIV          16    2  A
NSTORE        18    4  A
NCORP         22    3  A
NPOOL         25    3  A
NSTRATUM      28    3  A
NDEPT         31    2  A  HEADING('DPT')
NCOMM         33    3  A  HEADING('COM')
NSUB          36    3  A  HEADING('SUB')
NCOMMU        39    3  A
NSTWHSE       42    1  A
NDESC         43   25  A
NOWNER        73    1  A
NPACK         74    5  A
NSIZE         79   10  A
NDIVIDE       89    1  A
NBOYCOST      90    8  N 3
NCURCOST      98    8  N 3
NLASTPO      106    8  N 3
NVENDOR      116    6  A  HEADING('NVNDR')
NVENDORNM    122   10  A
NVENDORAR    132    3  A
NVENDORLN    135    3  A
NDATECR      138    6  A
NINACTIVE    144    2  A
NCHECKDGT    146    1  A
NMANUFACT    147   10  A
NACCOUNTCD   157    2  A
NBUYER       159    3  A
NMERCHDIVIS  162    2  A
NCOSTCENTER  164    4  A
NITEMSTATUS  168    1  A
NKEYBUY      169    1  A
NBETTERVALU  170    1  A
NNEWLOWPRIC  171    1  A
NVENDORSTOC  172   13  A
NSHELFRETAI  185    9  N 2
NITEMCODE    194    1  A
NDATEDISCON  195    3  P  HEADING('DATE DISC')
NDATEFIRST   198    3  P  HEADING('DATE 1ST')
NWHSEQUANTI  201    5  P 2
NSUPPLYFLAG  206    1  A  HEADING('NSUPPLY')
NRESTRICTOR  207    1  A
NLIFORANDOM  208    6  A
NEOYCOST     214    8  N 3
FILE FILEO
OSOURCE        1    3  A
OITEM          9    7  A
ODIV          16    2  A
OSTORE        18    4  A
OCORP         22    3  A
OPOOL         25    3  A
OSTRATUM      28    3  A
ODEPT         31    2  A  HEADING('DPT')
OCOMM         33    3  A  HEADING('COM')
OSUB          36    3  A  HEADING('SUB')
OCOMMU        39    3  A
OSTWHSE       42    1  A
ODESC         43   25  A
OOWNER        73    1  A
OPACK         74    5  A
OSIZE         79   10  A
ODIVIDE       89    1  A
OBOYCOST      90    8  N 3
OCURCOST      98    8  N 3
OLASTPO      106    8  N 3
OVENDOR      116    6  A  HEADING('OVNDR')
OVENDORNM    122   10  A
OVENDORAR    132    3  A
OVENDORLN    135    3  A
ODATECR      138    6  A
OINACTIVE    144    2  A
OCHECKDGT    146    1  A
OMANUFACT    147   10  A
OACCOUNTCD   157    2  A
OBUYER       159    3  A
OMERCHDIVIS  162    2  A
OCOSTCENTER  164    4  A
OITEMSTATUS  168    1  A
OKEYBUY      169    1  A
OBETTERVALU  170    1  A
ONEWLOWPRIC  171    1  A
OVENDORSTOC  172   13  A
OSHELFRETAI  185    9  N 2
OITEMCODE    194    1  A
ODATEDISCON  195    3  P  HEADING('DATE DISC')
ODATEFIRST   198    3  P  HEADING('DATE 1ST')
OWHSEQUANTI  201    5  P 2
OSUPPLYFLAG  206    1  A  HEADING('OSUPPLY')
ORESTRICTOR  207    1  A
OLIFORANDOM  208    6  A
OEOYCOST     214    8  N 3
FILE DSLJO01 PRINTER
FILE DSLJO02 PRINTER
FILE DSLJO03 PRINTER
FILE DSLJO04 PRINTER
JOB INPUT (FILEN KEY (NITEM) +
           FILEO KEY (OITEM)) +
           NAME MATCH-FILE
IF MATCHED FILEN FILEO
   PRINT LIFO-REPORT1
   PRINT LIFO-REPORT4
END-IF
IF NOT MATCHED FILEN FILEO AND FILEO
   PRINT LIFO-REPORT2
END-IF
IF NOT MATCHED FILEN FILEO AND FILEN
   PRINT LIFO-REPORT3
END-IF
REPORT LIFO-REPORT1         +
   SPACE 1 +
   PRINTER DSLJO01
TITLE 1 '================================================='
TITLE 2 '=             FONTANA WAREHOUSE INFO            ='
TITLE 3 '=     LEGACY INFO (OLD) VS. DB2 INFO (NEW)      ='
TITLE 4 '================================================='
LINE 1 NITEM +
NDESC        +
ODEPT        +
OCOMM        +
OSUB         +
OBOYCOST     +
OCURCOST     +
NBOYCOST     +
NCURCOST     +
NWHSEQUANTI  +
OVENDOR      +
NVENDOR      +
NVENDORNM
REPORT LIFO-REPORT2         +
   SPACE 1 +
   PRINTER DSLJO02
TITLE 1 '#################################################'
TITLE 2 '#             FONTANA WAREHOUSE INFO            #'
TITLE 3 '# LEGACY INFO (OLD) WITH MISSING DB2 INFO (NEW) #'
TITLE 4 '#################################################'
LINE 1 OITEM +
ODIV         +
OSTORE       +
ODESC        +
ODEPT        +
OCOMM        +
OSUB         +
OBOYCOST     +
OCURCOST     +
OWHSEQUANTI  +
OPACK        +
OSIZE        +
ODATEDISCON  +
ODATEFIRST
REPORT LIFO-REPORT3         +
   SPACE 1 +
   PRINTER DSLJO03
TITLE 1 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
TITLE 2 '%             FONTANA WAREHOUSE INFO            %'
TITLE 3 '% DB2 INFO (NEW) WITH MISSING LEGACY INFO (OLD) %'
TITLE 4 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'
LINE 1 NITEM +
NDIV         +
NSTORE       +
NDESC        +
NDEPT        +
NCOMM        +
NSUB         +
NBOYCOST     +
NCURCOST     +
NWHSEQUANTI  +
NPACK        +
NSIZE        +
NDATEDISCON  +
NDATEFIRST
REPORT LIFO-REPORT4         +
   SPACE 1 +
   PRINTER DSLJO04
TITLE 1 '================================================='
TITLE 2 '=             FONTANA WAREHOUSE INFO            ='
TITLE 3 '=     LEGACY INFO (OLD) VS. DB2 INFO (NEW)      ='
TITLE 4 '================================================='
LINE 1 NITEM +
NDESC        +
OPACK        +
NPACK        +
OSIZE        +
NSIZE        +
OBUYER       +
NBUYER       +
OVENDORSTOC  +
NVENDORSTOC  +
OSUPPLYFLAG  +
NSUPPLYFLAG
/*
//*
